inherited frmDebtDetails: TfrmDebtDetails
  Left = 470
  Top = 578
  VertScrollBar.Range = 0
  BorderStyle = bsDialog
  Caption = #1055#1088#1080#1079#1085#1072#1082#1080' '#1076#1086#1083#1075#1072
  ClientHeight = 260
  ClientWidth = 444
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 220
    Width = 444
  end
  object pnlTraits: TPanel [1]
    Tag = 1014
    Left = 0
    Top = 0
    Width = 444
    Height = 220
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object SrcLabel: TLabel
      Left = 8
      Top = 6
      Width = 145
      Height = 16
      AutoSize = False
      Caption = #1044#1086#1089#1090#1091#1087#1085#1099#1077' '#1087#1088#1080#1079#1085#1072#1082#1080
    end
    object DstLabel: TLabel
      Left = 246
      Top = 6
      Width = 145
      Height = 16
      AutoSize = False
      Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1085#1099#1077' '#1087#1088#1080#1079#1085#1072#1082#1080
    end
    object IncludeBtn: TSpeedButton
      Left = 202
      Top = 25
      Width = 36
      Height = 28
      Caption = '>'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = IncludeBtnClick
    end
    object IncAllBtn: TSpeedButton
      Left = 202
      Top = 57
      Width = 36
      Height = 28
      Caption = '>>'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = IncAllBtnClick
    end
    object ExcludeBtn: TSpeedButton
      Left = 202
      Top = 89
      Width = 36
      Height = 28
      Caption = '<'
      Enabled = False
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = ExcludeBtnClick
    end
    object ExAllBtn: TSpeedButton
      Left = 202
      Top = 121
      Width = 36
      Height = 28
      Caption = '<<'
      Enabled = False
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = ExAllBtnClick
    end
    object Panel3: TPanel
      Left = 6
      Top = 24
      Width = 190
      Height = 187
      BevelOuter = bvLowered
      Caption = 'Panel3'
      TabOrder = 0
      object SrcList: TListBox
        Left = 1
        Top = 1
        Width = 188
        Height = 185
        Align = alClient
        BorderStyle = bsNone
        ItemHeight = 13
        MultiSelect = True
        TabOrder = 0
        OnDblClick = IncludeBtnClick
      end
    end
    object Panel4: TPanel
      Left = 245
      Top = 24
      Width = 190
      Height = 187
      BevelOuter = bvLowered
      Caption = 'Panel3'
      TabOrder = 1
      object DstList: TListBox
        Left = 1
        Top = 1
        Width = 188
        Height = 185
        Align = alClient
        BorderStyle = bsNone
        ItemHeight = 13
        MultiSelect = True
        TabOrder = 0
        OnDblClick = ExcludeBtnClick
      end
    end
  end
  inherited MainMenu1: TMainMenu
    Left = 416
    Top = 36
  end
  inherited ActionList1: TActionList
    Left = 382
    Top = 36
  end
  inherited PropStorageEh1: TPropStorageEh
    Section = 'frmDebtDetail'
    Left = 348
    Top = 36
  end
  object dsFreeTraits: TpFIBDataSet
    SelectSQL.Strings = (
      'select'
      '    sd.id,'
      '    sd.name'
      'from spr_details sd'
      '  where not exists(select 1'
      '    from rst_debt_details rdd'
      '    where rdd.detail_id = sd.id'
      '    and rdd.debt_id = :pdebt_id)'
      'order by 2')
    Transaction = crdDebt.trDebt
    Database = MAINDM.MainDB
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 347
    Top = 74
    object dsFreeTraitsID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsFreeTraitsNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsDebtTraits: TpFIBDataSet
    SelectSQL.Strings = (
      'select'
      '    sd.id,'
      '    sd.name'
      'from spr_details sd'
      '  join rst_debt_details rdd on rdd.detail_id = sd.id'
      '    and rdd.debt_id = :pdebt_id'
      'order by 2')
    Transaction = crdDebt.trDebt
    Database = MAINDM.MainDB
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 347
    Top = 104
    object dsDebtTraitsID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsDebtTraitsNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object prSetTraitOnDebt: TpFIBStoredProc
    Transaction = crdDebt.trDebt
    Database = MAINDM.MainDB
    SQL.Strings = (
      'EXECUTE PROCEDURE PR_DEBT_SET_TRAITS (:PDEBT_ID, :PTRAITS)')
    CSMonitorSupport.Enabled = csmeTransactionDriven
    StoredProcName = 'PR_DEBT_SET_TRAITS'
    Left = 353
    Top = 144
    qoStartTransaction = True
  end
  object trSetTraitOnDebt: TpFIBTransaction
    DefaultDatabase = MAINDM.MainDB
    TimeoutAction = TARollback
    CSMonitorSupport.Enabled = csmeDatabaseDriven
    Left = 391
    Top = 142
  end
end
